function [a] = AbsAverage(A)

a = 0;
for i = 1:1:3000
  a = a + abs(A(i));
end

a = a/3000;
